home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 8
/
CD Funhouse Version 8.0 - Wayzata Technology (7013) (1993).iso
/
pc
/
mac
/
__intere
/
birthday.___
/
card_4285.txt
< prev
next >
Wrap
Text File
|
1990-09-09
|
13KB
|
471 lines
-- card: 4285 from stack: in.___
-- bmap block id: 2343
-- flags: 4000
-- background id: 2739
-- name: Birthday
----- HyperTalk script -----
on openCard
hide Menubar
ask "What is your name?" with "Bozo"
put It into Bname
ask "In what year were you born?" with "1957"
put It into Byear
if Byear is " " then
beep
ask "Which year?"
end if
put It into Byear
ask "In what month were you born?" with "Mar"
put It into Bmonth
if Bmonth is " " then
beep
ask "Which month?"
end if
put It into Bmonth
if length of Bmonth > 3 then
put char 1 of Bmonth & char 2 of Bmonth & char 3 of Bmonth into Bmonth
end if
ask "On what day were you born?" with "12"
put It into Bday
if Bday is " " then
beep
ask "Which day?"
end if
put It into Bday
if Bday > 31 then put 31 into Bday
answer "Thanks, "&Bname
put Bmonth&" "&Bday&", "&Byear into card field "Date" of card "Birthday"
put Byear - 1902 into lineno
put line lineno of field 1 of card "Headline" into card field "Hline" of card "Birthday"
put line lineno of field 1 of card "Nobel" into card field "Nobel" of card "Birthday"
put word 3 of line lineno of field 1 of card "Sports" into league
if league is "A" then
put "American" into league
else
put "National" into league
end if
put "World Series won by "&league&" League: "& word 2 of line lineno of field 1 of card "Sports" into card field "WSeries" of card "Birthday"
put "Ky Derby winner: "&word 4 of line lineno of field 1 of card "Sports" into card field "Derby" of card "Birthday"
put "Tennis Davis Cup won by: "&word 5 of line lineno of field 1 of card "Sports" into card field "Davis" of card "Birthday"
if Byear > 1910 then
put "Indy 500 winning driver: "&word 6 of line lineno of field 1 of card "Sports" into card field "Indy500" of card "Birthday"
end if
if Byear > 1936 then
put "NCAA Football Champs: "&word 7 of line lineno of field 1 of card "Sports" into card field "NCAA" of card "Birthday"
end if
if Byear > 1966 then
put "SuperBowl winner: " & word 8 of line lineno of field 1 of card "Sports" into card field "SBowl" of card "Birthday"
end if
put Bname into card field "Bname" of card "Birthday"
put Bday + 2 into lineno
put line lineno of field 1 of card Bmonth into card field "Famous" of card "Birthday"
put line 1 of field 1 of card Bmonth into card field "Birthstone" of card "Birthday"
put line 2 of field 1 of card Bmonth into card field "Birthflower" of card "Birthday"
if Byear > 1927 then
put Byear - 1927 into lineno
put word 2 of line lineno of field 1 of card "Oscar" into card field "Actress" of card "Birthday"
put word 3 of line lineno of field 1 of card "Oscar" into card field "Actor" of card "Birthday"
put empty into title
put empty into thisword
repeat with count = 4 to 10
put word count of line lineno of field 1 of card "Oscar" into thisword
put title &" "& thisword into title
end repeat
put title into card field "BestPic" of card Birthday
end if
if Bmonth is "Jan" and Bday < 21 then
put "CAPRICORN Dec 22 - Jan 20" into card field "Zodiac"
else if Bmonth is "Jan" and Bday > 20 then
put "AQUARIUS Jan 21 - Feb 19" into card field "Zodiac"
else if Bmonth is "Feb" and Bday < 20 then
put "AQUARIUS Jan 21 - Feb 19" into card field "Zodiac"
else if Bmonth is "Feb" and Bday > 19 then
put "PISCES Feb 20 - Mar 20" into card field "Zodiac"
else if Bmonth is "Mar" and Bday < 21 then
put "PISCES Feb 20 - Mar 20" into card field "Zodiac"
else if Bmonth is "Mar" and Bday > 20 then
put "ARIES Mar 21 - Apr 19" into card field "Zodiac"
else if Bmonth is "Apr" and Bday < 20 then
put "ARIES Mar 21 - Apr 19" into card field "Zodiac"
else if Bmonth is "Apr" and Bday > 19 then
put "TAURUS Apr 20 - May 20" into card field "Zodiac"
else if Bmonth is "May" and Bday < 21 then
put "TAURUS Apr 20 - May 20" into card field "Zodiac"
else if Bmonth is "May" and Bday > 20 then
put "GEMINI May 21 - Jun 21" into card field "Zodiac"
else if Bmonth is "Jun" and Bday < 22 then
put "GEMINI May 21 - Jun 21" into card field "Zodiac"
else if Bmonth is "Jun" and Bday > 21 then
put "CANCER Jun 22 - Jul 21" into card field "Zodiac"
else if Bmonth is "Jul" and Bday < 22 then
put "CANCER Jun 22 - Jul 21" into card field "Zodiac"
else if Bmonth is "Jul" and Bday > 21 then
put "LEO Jul 22 - Aug 21" into card field "Zodiac"
else if Bmonth is "Aug" and Bday < 22 then
put "LEO Jul 22 - Aug 21" into card field "Zodiac"
else if Bmonth is "Aug" and Bday > 21 then
put "VIRGO Aug 22 - Sep 22" into card field "Zodiac"
else if Bmonth is "Sep" and Bday < 23 then
put "VIRGO Aug 22 - Sep 22" into card field "Zodiac"
else if Bmonth is "Sep" and Bday > 22 then
put "LIBRA Sep 23 - Oct 22" into card field "Zodiac"
else if Bmonth is "Oct" and Bday < 23 then
put "LIBRA Sep 23 - Oct 22" into card field "Zodiac"
else if Bmonth is "Oct" and Bday > 22 then
put "SCORPIO Oct 23 - Nov 21" into card field "Zodiac"
else if Bmonth is "Nov" and Bday < 22 then
put "SCORPIO Oct 23 - Nov 21" into card field "Zodiac"
else if Bmonth is "Nov" and Bday > 21 then
put "SAGITTARIUS Nov 22 - Dec 21" into card field "Zodiac"
else if Bmonth is "Dec" and Bday < 22 then
put "SAGITTARIUS Nov 22 - Dec 21" into card field "Zodiac"
else if Bmonth is "Dec" and Bday > 21 then
put "CAPRICORN Dec 22 - Jan 20" into card field "Zodiac"
put 1 into horo
end if
if Byear/4 = trunc(Byear/4) then
put (Byear/4)-475 into lineno
put line lineno of field 1 of card "Olympics" into oly
if oly is not empty then
put "Olympics at: " & oly into card field "Olympics" of card "Birthday"
end if
end if
if Byear = 1906 then put "Olympics held in Athens" into card field "Olympics" of card "Birthday"
end openCard
on closeCard
repeat with count = 1 to 18
put empty into card field count
end repeat
end closeCard
-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=34 right=64 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect iris close
go home
end mouseUp
-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=49 top=34 right=64 bottom=78
-- title width / last selected line: 0
-- icon id / first selected line: 9761 / 9761
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect dissolve
go to next card
end mouseUp
-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=384 top=40 right=56 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Date
-- part 4 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=10 top=63 right=89 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 20
-- style flags: 256
-- line height: 26
-- part name: HLine
-- part 5 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=319 top=111 right=162 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: WSeries
-- part 7 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=319 top=192 right=224 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Davis
-- part 8 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=319 top=222 right=255 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Indy500
-- part 9 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=319 top=254 right=286 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: NCAA
-- part 10 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=319 top=285 right=318 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: SBowl
-- part 11 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=319 top=161 right=193 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Derby
-- part 12 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=11 top=108 right=128 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Bname
-- part 13 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=11 top=126 right=160 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Famous
-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=78 top=34 right=64 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
answer "by Ed & Barb Will Jan 88"
end mouseUp
-- part 15 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=10 top=173 right=189 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Birthstone
-- part 16 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=11 top=238 right=269 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Zodiac
-- part 17 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=268 right=318 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Olympics
-- part 18 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=180 top=126 right=174 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: BestPic
-- part 19 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=180 top=188 right=207 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Actress
-- part 20 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=180 top=222 right=239 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Actor
-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=351 top=33 right=64 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
doMenu print card
end mouseUp
-- part 22 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=180 top=268 right=318 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Nobel
-- part 23 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=10 top=206 right=223 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Birthflower